home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / LISP Related / MCL Utilities / Sound Manager / sound-info.lisp < prev    next >
Encoding:
Text File  |  1990-09-04  |  2.0 KB  |  94 lines  |  [TEXT/CCL ]
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;; Copyright 1987, 1988, 1989, 1990 by Ruben Kleiman for Apple Computer, Inc.
  3. ;;; Advanced Technology Group
  4. ;;;
  5.  
  6. (provide :sound-info)
  7.  
  8. (in-package 'sound)
  9.  
  10. (use-package '(ccl system))
  11.  
  12. ;;; Sound information
  13.  
  14. ;;; Synthetizer numbers
  15. (defconstant noteSynth 1)
  16. (defconstant waveTableSynth 3)
  17. (defconstant sampledSynth 5)
  18. (defconstant MIDISynthIn 7)
  19. (defconstant MIDISynthOut 9)
  20.  
  21. ;;; Errors
  22. (defconstant badChannel -205)
  23. (defconstant badFormat -206)
  24. (defconstant noHardware -200)
  25. (defconstant notEnoughHardware -201)
  26. (defconstant queueFull -203)
  27. (defconstant resProblem -204)
  28.  
  29. ;;; Param2 values
  30. (defconstant MidiInitChanFilter #x10)
  31. (defconstant MidiInitRawMode #x100)
  32.  
  33. (defconstant StdQLength 128)
  34.  
  35.  
  36. ;;; Commands
  37. (defconstant nullCmd 0)
  38. (defconstant initCmd 1)
  39. (defconstant freeCmd 2)
  40. (defconstant quietCmd 3)
  41. (defconstant flushCmd 4)
  42. (defconstant waitCmd 10)
  43. (defconstant pauseCmd 11) 
  44. (defconstant resumeCmd 12)
  45. (defconstant callBackCmd 13)
  46. (defconstant syncCmd 14)
  47. (defconstant emptyCmd 15)
  48. (defconstant tickleCmd 20)
  49. (defconstant requestNextCmd 21)
  50. (defconstant howOftenCmd 22)
  51. (defconstant wakeUpCmd 23)
  52. (defconstant availableCmd 24)
  53. (defconstant noteCmd 40)
  54. (defconstant restCmd 41)
  55. (defconstant freqCmd 42)
  56. (defconstant ampCmd 43)
  57. (defconstant timbreCmd 44)
  58. (defconstant waveTableCmd 60)
  59. (defconstant phaseCmd 61)
  60. (defconstant soundCmd 80)
  61. (defconstant bufferCmd 81)
  62. (defconstant rateCmd 82)
  63. (defconstant midiDataCmd 100)
  64.  
  65. (defrecord SndCommand
  66.   (cmd :integer)
  67.   (param1 :integer)
  68.   (param2 :longint))
  69.  
  70. (defrecord SndChannel
  71.   (nextChan :pointer)
  72.   (firstMod :pointer)
  73.   (callBack :pointer)
  74.   (userInfo :longint)
  75.   (wait :longint)
  76.   (cmdInProg :SndCommand)
  77.   (flags :integer)
  78.   (qLength :integer)
  79.   (qHead :integer)
  80.   (qTail :integer)
  81.   (queue :SndCommand))  ; actually, an array of 128 SndCommand's
  82.  
  83. (defrecord ModifierStub
  84.   (nextStub :pointer)
  85.   (code :pointer)
  86.   (userInfo :longint)
  87.   (count :longint)
  88.   (every :longint)
  89.   (flags :byte)
  90.   (hState :byte))
  91.  
  92.  
  93.  
  94.